h1{font-weight: Bold}
h2{font-weight: Bold}
p {font-size: 18px}
body {
Font-Family: 'Arial';
background-color: :white;
}
This meme represents my frustration at my occasional inability to create the art I want to.
Original_character_meme
library(magick)
library(tidyverse)
# make gray box with word expectation
Expectation_text <- image_blank(width = 300,
height = 300,
color = "#f2f2f2") %>%
image_annotate(text = "EXPECTATION...",
color ="#000000",
size = 30,
font = "Arial",
gravity = "center",
strokecolor = "#000000") %>%
image_border(color = "#000000", geometry = "1x1")
# make gray box with word reality
Reality_text <- image_blank(width = 300,
height = 300,
color = "#f2f2f2") %>%
image_annotate(text = "REALITY...",
color ="#000000",
size = 30,
font = "Arial",
gravity = "center") %>%
image_border(color = "#000000", geometry = "1x1")
Expectation_image <- image_read("original_character.jpg") %>%
image_scale(300) %>%
image_border(color = "#000000", geometry = "1x1")
Reality_image <- image_read("reality_image.jpg") %>%
image_scale(300) %>%
image_border(color = "#000000", geometry = "1x1")
# top row of meme
Expectation <- image_append(c(Expectation_text, Expectation_image))
# bottom row of meme
Reality <- image_append(c(Reality_text, Reality_image))
# description above meme
description_text <- image_blank(width = 600,
height = 50,
color = "#f2f2f2") %>%
image_border(color = "#000000", geometry = "1x1") %>%
image_annotate(text = " Drawing an original character: ",
size = 40,
font = "Arial")
# combine and export meme
complete_meme <- c(description_text, Expectation, Reality) %>%
image_append(stack = TRUE) %>%
image_write("original_char_meme.png")
This GIF was made to visually convey the feeling of poor internet connection, which I occasionally have.